home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / MSTPChart / Periodic.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-05-26  |  7.9 KB  |  234 lines  |  [TEXT/KAHL]
  1. #include    "MST_Defines.h"
  2. #include    "MST_Externs.h"
  3. #include    "MST_Prototypes.h"
  4.  
  5.  
  6. /*_____________________________________________________________________________
  7.                         Close_PeriodicChart()- close our Periodic Chart window
  8. _____________________________________________________________________________*/
  9.  
  10.  
  11. void    Close_PeriodicChart    ()
  12. {
  13. /*
  14. •        See comments for Close_AboutMST() in the file About.c
  15. */
  16.     if    (PeriodicChartDlog==NIL)    return;
  17.     DisposDialog        (PeriodicChartDlog);
  18.     PeriodicChartDlog    =    NIL;
  19. }
  20.  
  21.  
  22. /*_____________________________________________________________________________
  23.                         Open_PeriodicChart()- create and display our Periodic Chart window
  24. _____________________________________________________________________________*/
  25.  
  26.  
  27. void    Open_PeriodicChart    ()
  28. {
  29. /*
  30. •        See comments for Open_AboutMST() in the file About.c.
  31. */
  32.     if    (PeriodicChartDlog!=NIL)    {    SelectWindow    (PeriodicChartDlog);    return;    }
  33.  
  34.     PeriodicChartDlog = GetNewDialog (ResID_PeriodicChart, NIL, (WindowPtr)-1);
  35.     
  36.     ShowWindow        (PeriodicChartDlog);         
  37. }
  38.  
  39.  
  40. /*_____________________________________________________________________________
  41.                         Update_PeriodicChart()- update our Periodic Chart window
  42. _____________________________________________________________________________*/
  43.  
  44.  
  45. void    UpDate_PeriodicChart()
  46. {
  47.     GDHandle    saveDevice;
  48.     CGrafPtr    saveCGrafPtr;
  49.     int            loop1;
  50.     Str255        thisString;
  51.         
  52.     if    (PeriodicChartDlog==NIL)    return;        /*Make sure the periodic chart window exists*/
  53. /*
  54. •        Now save the current Grafport and set the current port to our Periodic Chart window.
  55. */
  56.     
  57.     GetGWorld    (&saveCGrafPtr,&saveDevice);
  58.     SetGWorld    ((CGrafPtr)PeriodicChartDlog,saveDevice);
  59. /*
  60. •        Now we begin updating. You MUST call BeginUpdate() just before
  61. •        and EndUpdate() just after doing your drawing. These two calls
  62. •        restrict your drawing to just that portion of the window that
  63. •        needs updating, and resets the window's update region to empty,
  64. •        thus clearing the window's update event.
  65. •
  66. •        Note: Dialogs, which are merely windows with a little more data added
  67. •        to their struct, actually have their own routines for handling
  68. •        updates, activate events, etc. Which ones are available depends
  69. •        upon the type of dialog (alert, modal, or modeless). Here we treat
  70. •        dialogs just like windows.
  71. */
  72.  
  73.     BeginUpdate    (PeriodicChartDlog);
  74. /*
  75. •        Here we set the port's pen colors. A more sophisticated program would examine
  76. •        the operating system version upon initialization and adapt itself to the
  77. •        operating systems capabilities (color Quickdraw might not be available, for
  78. •        example. The program would also survey the available monitors upon initialization,
  79. •        and adjust itself accordingly. For example, the program would not attempt to
  80. •        draw in Light Blue on a monochrome monitor, as it will not show up.
  81. •
  82. •        If you intend to run this on a monochrome monitor, just substitute Color_Black
  83. •        for every instance of Color_LtBlue in this update routine.
  84. */
  85.     RGBForeColor    (&Color_LtBlue);    /*Set the port's pen colors*/
  86.     RGBBackColor    (&Color_White);
  87. /*
  88. •        Draw our decorative dotted line around the chart
  89. */
  90.     for    (loop1=13;loop1<=PeriodicChartDlog->portRect.right-13;loop1+=2)
  91.     {
  92.         MoveTo    (loop1,PeriodicChartDlog->portRect.top+13);
  93.         Line    (0,0);
  94.         
  95.         MoveTo    (loop1,PeriodicChartDlog->portRect.bottom-13);
  96.         Line    (0,0);
  97.     }
  98.     for    (loop1=13;loop1<=PeriodicChartDlog->portRect.bottom-13;loop1+=2)
  99.     {
  100.         MoveTo    (PeriodicChartDlog->portRect.left+13,    loop1);
  101.         Line    (0,0);
  102.         
  103.         MoveTo    (PeriodicChartDlog->portRect.right-13,    loop1);
  104.         Line    (0,0);
  105.     }
  106. /*
  107. •        Since our program isn't sophisticated enough to allow user selection of fonts,
  108. •        we had better pick one we can rely on being present. That restricts us to
  109. •        Chicago, Geneva, or Monoco.
  110. */
  111.     TextFont    (geneva);
  112.     TextSize    (9);
  113. /*
  114. •        And now we draw each box and write the symbol in it. We've already calculated
  115. •        the rectangles for the boxes, and we have stored the element symbols in a
  116. •        STR# resource. FrameRect draws the rectangle using the current pen. The MoveTo
  117. •        and Move lines just calculate where to position the pen to start writing the
  118. •        element's symbol. The Toolbox call DrawString actually writes the text using
  119. •        the current font, color, etc. Remember, the color, pen size, font, & etc are
  120. •        all properties of the current port. Most QuickDraw commands such as FrameRect,
  121. •        MoveTo, DrawString, & etc operate implicitly on the current port with the
  122. •        current port's settings.
  123. */
  124.     for    (loop1=1;loop1<=Max_NumElements;loop1++)
  125.     {
  126.         RGBForeColor    (&Color_LtBlue);
  127.         FrameRect        (&PeriodicRects[loop1]);
  128.         RGBForeColor    (&Color_Black);
  129.         GetIndString    (thisString,ChemSymbsStr,loop1);
  130.         MoveTo            ((PeriodicRects[loop1].left)/2+(PeriodicRects[loop1].right) /2,
  131.                          (PeriodicRects[loop1].top) /2+(PeriodicRects[loop1].bottom)/2);
  132.         Move            (-StringWidth(thisString)/2,5);
  133.         DrawString        (thisString);        
  134.     }
  135. /*
  136. •        Now we set the port's properties to a few defaults before we leave. In more
  137. •        complex applications, with multiple fonts drawn into a single port, this
  138. •        practice could save us some headaches in tracking down text drawing problems.
  139. •        An alternative is to get various port attributes at the beginning of the
  140. •        update, save them, and then restore them at the end of the update.
  141. */
  142.     RGBForeColor    (&Color_Black);
  143.     TextFont    (systemFont);
  144.     TextSize    (12);
  145.     
  146. /*
  147. •        Now finish up by balancing with a call to EndUpdate(), and restore
  148. •        Quickdraw's pointer to the current Grafport to whatever it was
  149. •        before you updated.
  150. */
  151.  
  152.     EndUpdate    (PeriodicChartDlog);
  153.  
  154.     SetGWorld    (saveCGrafPtr,saveDevice);
  155. }
  156.  
  157.  
  158. /*_____________________________________________________________________________
  159.                         Do_PeriodicChart()- handle an event in the content region
  160.                                             of our Periodic Chart window
  161. _____________________________________________________________________________*/
  162.  
  163.  
  164. void    Do_PeriodicChart    (EventRecord *thisEvent)
  165. {
  166.     long            testKey,keyCode,loop1;
  167. /*
  168. •        We convert the coordinates of the event to local window coordinates, and
  169. •        check to see which element's rectangle, if any, the mousedown was in.
  170. •        If it is a double click, we then open the appropriate element window.
  171. •        Note that handling keyboard events has been broken out into a separate
  172. •        function, Do_Key(), in the file WindowControl.c. In Listing 5 in the
  173. •        original article of Do_PeriodicChart, we handled both mouse and keyboard
  174. •        events in the Do_PeriodicChart function. This resulted in the program
  175. •        inquiring whether an event was a mouse event or keyboard event twice:
  176. •        once in the main event loop, and once in the Do_PeriodicChart function.
  177. •        Handling keyboard events in a separate function is a better arrangement.
  178. */
  179.  
  180.     PeriodicChartWhere    = thisEvent->where;
  181.     GlobalToLocal        (&PeriodicChartWhere);
  182.  
  183.     for    (loop1=1;loop1<=Max_NumElements;loop1++)
  184.     {
  185.         if    (PtInRect(PeriodicChartWhere,&PeriodicRects[loop1])==TRUE)
  186.         {
  187.             if    (WaitDoubleClick(&PeriodicRects[loop1])==Click_Double)    Open_Elements    (loop1);
  188.             return;
  189.         }
  190.     }
  191. }
  192.  
  193.  
  194. /*_____________________________________________________________________________
  195.                         WaitDoubleClick()- detect double clicks vs single clicks
  196. _____________________________________________________________________________*/
  197.  
  198.  
  199. int        WaitDoubleClick    (Rect *inHere)
  200. {
  201.     Point        thisPoint,savePoint;
  202.     EventRecord    thisEvent;
  203.     long        clickTime;
  204. /*
  205. •        As we academics say, commenting this function is left as an exercise
  206. •        for the reader.
  207. */
  208.     while    (EventAvail(mDownMask,&thisEvent)==TRUE)    GetNextEvent(mDownMask,&thisEvent);
  209.  
  210.     while    (StillDown()==TRUE)
  211.     {
  212.         GetMouse        (&thisPoint);
  213.     }
  214.     if    (EventAvail(mUpMask,&thisEvent)==TRUE)    GetNextEvent(mUpMask,&thisEvent);
  215.     savePoint    = thisEvent.where;
  216.     GlobalToLocal    (&savePoint);
  217.     clickTime    = thisEvent.when + GetDblTime();
  218.     while        ((TickCount()<=clickTime)    &&    (EventAvail(mDownMask,&thisEvent)!=TRUE)) {}
  219.     if            (TickCount()>clickTime)
  220.     {
  221.         if    (PtInRect(savePoint,inHere)==TRUE)        return    Click_Single;
  222.         else                                        return    Click_None;
  223.     }
  224.     GetNextEvent(mDownMask,&thisEvent);
  225.     thisPoint    = thisEvent.where;
  226.     GlobalToLocal    (&thisPoint);
  227.     if            (PtInRect(thisPoint,inHere)==TRUE)
  228.     {
  229.         while    (StillDown()==TRUE)    {}
  230.         return    Click_Double;
  231.     }
  232.     return    Click_None;
  233. }
  234.